//Created by Erin Cassese
//For "Partisan Dehumanization in American Politics" in Political Behavior 
//Figure 3
///March 21, 2019

clear
* set directory path here: cd " "
insheet using "Figure 3 DATA.csv"
graph set window fontface "Times New Roman"


# delimit ;


twoway 


rcap cilo cihi order if lab==1,  color(black) ||
rcap  cilo cihi order if lab==2,  color(black) ||
rcap  cilo cihi order if lab==3,  color(gray) ||
 rcap  cilo cihi order if lab==4,  color(gray) ||
 
 scatter mean order if lab==1,   color(black) msize(medium) ||
  scatter mean order if lab==2,   symbol(S) color(black) msize(medium) ||
	scatter mean order if lab==3,   color(gray) msize(medium) ||
		scatter mean order if lab==4,  symbol(S) color(gray) msize(medium) || ,
 	 		
  			//addplot(pci 0.1185567 6 0.1185567 10) 
			title("Marginal Effect of Blatant Dehumanization" , color(black))
  			xtitle(" ")

  			xlab(
	
			9.5 "Moral Distance" 
			2.5 "Social Distance" 
			
  			, nogrid  labsize(medium))
  			ylab(, nogrid  labsize(medium)) 
  			ytitle("P (Blatant at Max) - P (Blatant at Min)", size(medium))
  			xsize(6)
			legend(pos(4) ring(0) col(2) order( 5 "Democrats (Student)" 6 "Democrats (MTurk)" 7 "Republicans (Student)" 8 "Republicans (MTurk)" ))
			legend(size(small))
			ylab(-1(.25)1)
            graphregion(fcolor(white) color(white) lcolor(white))
 			plotregion(fcolor(white) color(white) lcolor(white));
//make legend small 
 		
#delimit cr

